
(system "ls /")

(let ((p (popen "ls /etc" "r")))
  (do ((c (read-char p) (read-char p)))
      ((eof-object? c) 'DONE)
    (display c))
  (pclose p))

(getcwd)

(getenv "PATH")

(unlink "/tmp/TEST-FILE")

(tmpnam)

